home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Moof / Goodies / MPW Goodies / MPW Goodies⁄DTS / CheckInAll < prev    next >
Text File  |  2022-08-05  |  3KB  |  90 lines
  1. #
  2. #    File:        CheckInAll
  3. #
  4. #    Contains:    Script which checks in all files in current
  5. #                project.
  6. #
  7. #   Written by: Bruce Horn, Steve Capps, Larry Kenyon,
  8. #               John Meier, scott douglass, Darin Adler,
  9. #               Paul Mercer, Bryan Stearns, Dave Owens
  10. #
  11. #    Copyright:    © 1988 by Apple Computer, Inc., all rights reserved.
  12. #
  13. #    Change History:
  14. #
  15. #        2/17/89        sad        use ProjectInfo -s; redirect to {somewhere}
  16. #        11/17/88    sad        fix Can’t parse logic
  17. #        11/4/88        sad        fix so actually works, current project only
  18. #        11/4/88        sad        cloned from OpenCheckedOut
  19. #
  20. #    To Do:
  21. #        Can’t handle file names with spaces.
  22. #
  23.  
  24. Set Exit 0
  25. Set CaseSensitive 0
  26. # the following helps to debug until MPW sends echos to Dev:Console instead of Dev:StdErr
  27. If {Echo} == 1
  28.     Set somewhere "∑∑ '{Worksheet}∂'"
  29. Else
  30.     Set somewhere '∑ Dev:Null'
  31. End
  32. Begin
  33.  
  34.     # first get all the check-out directories for the current project
  35.     
  36.     Confirm "Do you want to check in all modifiable files in the project “`Project -q`”?"
  37.     Exit {Status} If {Status} != 0
  38.  
  39.     Set CheckOutDirs "`CheckOutDir -r; Set CheckOutDirStatus {Status} ; Echo ""`"
  40.     Exit {CheckOutDirStatus} If {CheckOutDirStatus} != 0
  41.  
  42.     Loop
  43.         Break If "{CheckOutDirs}" !~ / *CheckOutDir +-project ∂'«0,1»([¬:]+∫)®1∂'«0,1» ∂'«0,1»([¬∫]*:)®2∂'«0,1» (≈)®3/
  44.         Set Project "{®1}"
  45.         Set CheckOutDir "{®2}"
  46.         Set CheckOutDirs "{®3}"
  47.  
  48.         # now for each directory, get all modified files in the project
  49.  
  50.         Set Info "`ProjectInfo -s -a "{User}" -m -project "{Project}"; Set ProjectInfoStatus {Status}`"
  51.         # *** check status here
  52.  
  53.         Set FirstNotOpened ""
  54.         Set OthersNotOpened ""
  55. #        If "{Info}" =~ /[¬,]+∫( «0,1»≈)®1/
  56. #            Set Info "{®1}"
  57. #        End
  58.         Loop
  59.             Break If "{Info}" !~ /[¬+]*    ([¬,]+)®1,[0-9.a-z]+∂+ (≈)®2/
  60.             Set File "{®1}"
  61.             Set Info "{®2}"
  62.             If "`Exists "{CheckOutDir}{File}"`" == ""
  63.                 If "{FirstNotOpened}" == ""
  64.                     Set FirstNotOpened "“{File}”"
  65.                 Else
  66.                     Set OthersNotOpened "{OthersNotOpened}, “{File}”"
  67.                 End
  68.             Else
  69.                 CheckIn "{CheckOutDir}{File}" ∑∑ "{Worksheet}"
  70.             End
  71.         End
  72. #        If "{Info}" != ""
  73. #            Echo "### CheckInAll - Couldn’t parse: " "{Info}" ∑∑  "{Worksheet}"
  74. #            Exit 1
  75. #        End
  76.         If "{FirstNotOpened}" != ""
  77.             If "{OthersNotOpened}" == ""
  78.                 Alert "{FirstNotOpened} is checked out from “`Project -q`” but is not in the “{CheckOutDir}” directory."
  79.             Else
  80.                 Alert "The following files are checked out from “`Project -q`” but are not in the “{CheckOutDir}” directory: {FirstNotOpened}{OthersNotOpened}."
  81.             End
  82.         End
  83.     End
  84.     If "{CheckOutDirs}" != ""
  85.         Echo "### CheckInAll - Couldn’t parse: " "{CheckOutDirs}" ∑∑  "{Worksheet}"
  86.         Exit 1
  87.     End
  88.  
  89. End {somewhere}
  90.